home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 July to December / Ahoy_Magazine_84-Jul-Dec_1984_Double_L_unofficial.d64 / address book (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  269 lines
  1. 1500 data1500,do,not,enter,data,on,this,line
  2. 1502 print"[147]":poke53281,0:poke53280,11
  3. 1504 input"what is your first name";n$:goto 1508
  4. 1506 input"[147]sorry, i forgot your name";n$
  5. 1508 forl=1to1000:next
  6. 1510 print"[147]":poke53281,0:poke53280,11
  7. 1512 print"[158]address book <c> 1984 planet earth ltd.":print:t=0
  8. 1514 print"[l]  list all entries"
  9. 1516 print
  10. 1518 print"[n]  last name"
  11. 1520 printspc(25);"          [146]"
  12. 1522 print"[f]  first name"spc(10);" address  [146]"
  13. 1524 printspc(25);"     book [146]"
  14. 1526 print"[a]  address"spc(12);"[207]  [215]    [215]  [146][208]"
  15. 1528 printspc(23);"[152] [146][165]  [152] [146]     [146]  [167][152] [146]"
  16. 1530 print"[c]  city"spc(15);"[204]  [215]    [215]  [146][186]"
  17. 1532 printspc(24);"[149] by        [149] [146]"
  18. 1534 print"[s]  state"spc(14);"[149]  b.behling[149] [146]"
  19. 1536 printspc(24);"[149] [192][192][192][192][192][192][192][192][192][192][149] [146]"
  20. 1538 print"[z]  zip code"spc(11);"[149]            [146]"
  21. 1540 printspc(24);"[149]            [146]"
  22. 1542 print"[p]  phone number"spc(7);" [152][162][146]        [162][146]"
  23. 1544 print
  24. 1546 print"[x]  exit program"
  25. 1548 print
  26. 1550 print"[e]  enter data"
  27. 1552 print
  28. 1554 print"[153]choice?"
  29. 1556 getk$:ifk$=""then 1556
  30. 1558 ifk$="l"thengosub 1580
  31. 1560 ifk$="n"thengosub 1598
  32. 1562 ifk$="f"thengosub 1706
  33. 1564 ifk$="a"thengosub 1746
  34. 1566 ifk$="c"thengosub 1638
  35. 1568 ifk$="s"thengosub 1786
  36. 1570 ifk$="x"thengosub 1678
  37. 1572 ifk$="e"thengoto 1978
  38. 1574 ifk$="z"thengosub 1826
  39. 1576 ifk$="p"thengosub 1866
  40. 1578 goto 1510
  41. 1580 print"[147]"
  42. 1582 gosub 1966
  43. 1584 ifa=1500thengoto 1590
  44. 1586 gosub 1906
  45. 1588 goto 1580
  46. 1590 print"[147]"spc(12);"[158] end of files. [146]"
  47. 1592 forl=1to1000:next
  48. 1594 restore
  49. 1596 return
  50. 1598 input"[147]what is the last name";j$:z=len(j$)
  51. 1600 print"[147]"spc(20-int((len(n$)+11)/2));"thank you ";n$;"."
  52. 1602 forl=1to1000:next:goto 1606
  53. 1604 printspc(7);"searching, please standby."
  54. 1606 gosub 1966
  55. 1608 ifa=1500thengoto 1614
  56. 1610 ifj$=left$(b$,z)thent=1:gosub 1906
  57. 1612 print"[147]":goto 1604
  58. 1614 ift=1thengoto 1630
  59. 1616 print"[147]"spc(20-int((len(j$)+14+len(n$))/2));j$;" not on file "n$;"."
  60. 1618 printspc(8);"[158][169]                       [223]"
  61. 1620 printspc(8);" [146]hit return to continue.[158] "
  62. 1622 printspc(8);"[146][223]                       [146][169]"
  63. 1624 getk$:ifk$=""thengoto 1624
  64. 1626 restore
  65. 1628 return
  66. 1630 print"[147]"spc(12);"[158] end of files. [146]"
  67. 1632 forl=1to1000:next
  68. 1634 restore
  69. 1636 return
  70. 1638 input"[147]what city do you want";j$:z=len(j$)
  71. 1640 print"[147]"spc(20-int((len(n$)+11)/2));"thank you ";n$;"."
  72. 1642 forl=1to1000:next:goto 1646
  73. 1644 printspc(7);"searching please standby."
  74. 1646 gosub 1966
  75. 1648 ifa=1500thengoto 1654
  76. 1650 ifj$=left$(e$,z)thent=1:gosub 1906
  77. 1652 print"[147]":goto 1644
  78. 1654 ift=1thengoto 1670
  79. 1656 print"[147]"spc(20-int((len(j$)+14+len(n$))/2));j$;" not on file "n$;"."
  80. 1658 printspc(8);"[169]                       [223]"
  81. 1660 printspc(8);" [146]hit return to continue. "
  82. 1662 printspc(8);"[146][223]                       [146][169]"
  83. 1664 getk$:ifk$=""thengoto 1664
  84. 1666 restore
  85. 1668 return
  86. 1670 print"[147]"spc(12);"[158] end of files. [146]"
  87. 1672 forl=1to1000:next
  88. 1674 restore
  89. 1676 return
  90. 1678 print"[147]"spc(5);"hit [x] to exit without saving."
  91. 1680 print""spc(8);"hit [a] to abort to menu."
  92. 1682 print""spc(8);"hit [s] to save listings."
  93. 1684 getk$:ifk$=""thengoto 1684
  94. 1686 ifk$="x"thenend
  95. 1688 ifk$="a"goto 1510
  96. 1690 ifk$<>"s"then 1678
  97. 1692 print""spc(11);"tape or disk [t/d]"
  98. 1694 gettd$:on-(td$="")goto 1694:iftd$="d"then 1702
  99. 1696 print""spc(5);"[158] rewind tape before saving!!! [146]"
  100. 1698 print""spc(9);"hit any key when ready"
  101. 1700 getk$:on-(k$="")goto 1700:save"address book":end
  102. 1702 print""spc(16);" saving [146]":save"@0:address book",8
  103. 1704 open15,8,15,"v":close15:end
  104. 1706 input"[147]what is the first name";j$:z=len(j$)
  105. 1708 print"[147]"spc(20-int((len(n$)+11)/2));"thank you ";n$;"."
  106. 1710 forl=1to1000:next:goto 1714
  107. 1712 printspc(7);"searching, please standby."
  108. 1714 gosub 1966
  109. 1716 ifa=1500thengoto 1722
  110. 1718 ifj$=left$(c$,z)thent=1:gosub 1906
  111. 1720 print"[147]":goto 1712
  112. 1722 ift=1thengoto 1738
  113. 1724 print"[147]"spc(20-int((len(j$)+14+len(n$))/2));j$;" not on file "n$;"."
  114. 1726 printspc(8);"[159][169]                       [223]"
  115. 1728 printspc(8);" [146]hit return to continue.[159] "
  116. 1730 printspc(8);"[146][223]                       [146][169]"
  117. 1732 getk$:ifk$=""thengoto 1732
  118. 1734 restore
  119. 1736 return
  120. 1738 print"[147]"spc(12);"[158] end of files. [146]"
  121. 1740 forl=1to1000:next
  122. 1742 restore
  123. 1744 return
  124. 1746 input"[147]what is the address";j$:z=len(j$)
  125. 1748 print"[147]"spc(20-int((len(n$)+11)/2));"thank you ";n$;"."
  126. 1750 forl=1to1000:next:goto 1754
  127. 1752 printspc(7);"searching, please standby."
  128. 1754 gosub 1966
  129. 1756 ifa=1500thengoto 1762
  130. 1758 ifj$=left$(d$,z)thent=1:gosub 1906
  131. 1760 print"[147]":goto 1752
  132. 1762 ift=1thengoto 1778
  133. 1764 print"[147]"spc(20-int((len(j$)+14+len(n$))/2));j$;" not on file "n$;"."
  134. 1766 printspc(8);"[156][169]                       [223]"
  135. 1768 printspc(8);" [146]hit return to continue.[156] "
  136. 1770 printspc(8);"[146][223]                       [146][169]"
  137. 1772 getk$:ifk$=""thengoto 1772
  138. 1774 restore
  139. 1776 return
  140. 1778 print"[147]"spc(12);"[158] end of files. [146]"
  141. 1780 forl=1to1000:next
  142. 1782 restore
  143. 1784 return
  144. 1786 input"[147]what state do you want";j$:z=len(j$)
  145. 1788 print"[147]"spc(20-int((len(n$)+11)/2));"thank you ";n$;"."
  146. 1790 forl=1to1000:next:goto 1794
  147. 1792 printspc(7);"searching, please standby."
  148. 1794 gosub 1966
  149. 1796 ifa=1500thengoto 1802
  150. 1798 ifj$=left$(f$,z)thent=1:gosub 1906
  151. 1800 print"[147]":goto 1792
  152. 1802 ift=1thengoto 1818
  153. 1804 print"[147]"spc(20-int((len(j$)+14+len(n$))/2));j$;" not on file "n$;"."
  154. 1806 printspc(8);"[169]                       [223]"
  155. 1808 printspc(8);" [146]hit return to continue. "
  156. 1810 printspc(8);"[146][223]                       [146][169]"
  157. 1812 getk$:ifk$=""thengoto 1812
  158. 1814 restore
  159. 1816 return
  160. 1818 print"[147]"spc(12);"[158] end of files. [146]
  161. 1820 [129]l[178]1[164]1000:[130]
  162. 1822 [140]
  163. 1824 [142]
  164. 1826 [133]"loadwhat is the zip code";j$:z[178][195](j$)
  165. 1828 [153]"load"[166]20[171][181](([195](n$)[170]11)[173]2));"thank you ";n$;"."
  166. 1830 [129]l[178]1[164]1000:[130]:[137] 1834
  167. 1832 [153][166]7);"searching, please standby."
  168. 1834 [141] 1966
  169. 1836 [139]a[178]1500[167][137] 1842
  170. 1838 [139]j$[178][200](g$,z)[167]t[178]1:[141] 1906
  171. 1840 [153]"load":[137] 1832
  172. 1842 [139]t[178]1[167][137] 1858
  173. 1844 [153]"load"[166]20[171][181](([195](j$)[170]14[170][195](n$))[173]2));j$;" not on file "n$;"."
  174. 1846 [153][166]8);"step                       (NULL)"
  175. 1848 [153][166]8);" waithit return to continue. "
  176. 1850 [153][166]8);"wait(NULL)                       waitstep"
  177. 1852 [161]k$:[139]k$[178]""[167][137] 1852
  178. 1854 [140]
  179. 1856 [142]
  180. 1858 [153]"load"[166]12);"sys end of files. wait"
  181. 1860 [129]l[178]1[164]1000:[130]
  182. 1862 [140]
  183. 1864 [142]
  184. 1866 [133]"loadwhat phone number";j$:z[178][195](j$)
  185. 1868 [153]"load"[166]20[171][181](([195](n$)[170]11)[173]2));"thank you ";n$;"."
  186. 1870 [129]l[178]1[164]1000:[130]:[137] 1874
  187. 1872 [153][166]7);"searching, please standby."
  188. 1874 [141] 1966
  189. 1876 [139]a[178]1500[167][137] 1882
  190. 1878 [139]j$[178][200](h$,z)[167]t[178]1:[141] 1906
  191. 1880 [153]"load":[137] 1872
  192. 1882 [139]t[178]1[167][137] 1898
  193. 1884 [153]"load"[166]20[171][181](([195](j$)[170]14[170][195](n$))[173]2));j$;" not on file "n$;"."
  194. 1886 [153][166]8);"forstep                       (NULL)"
  195. 1888 [153][166]8);" waithit return to continue.for "
  196. 1890 [153][166]8);"wait(NULL)                       waitstep"
  197. 1892 [161]k$:[139]k$[178]""[167][137] 1892
  198. 1894 [140]
  199. 1896 [142]
  200. 1898 [153]"load"[166]12);"sys end of files. wait"
  201. 1900 [129]l[178]1[164]1000:[130]
  202. 1902 [140]
  203. 1904 [142]
  204. 1906 [153]"loadcont file #   >";a
  205. 1908 [153]"open (NULL)tanlentantantantantantanright$"
  206. 1910 [153]"open (NULL)name    open(NULL)>";b$;", ";c$
  207. 1912 [153]"open (NULL)        (NULL)"
  208. 1914 [153]"open (NULL)address open(NULL)>";d$
  209. 1916 [153]"open (NULL)        (NULL)"
  210. 1918 [153]"open (NULL)city    open(NULL)>";e$
  211. 1920 [153]"open (NULL)        (NULL)"
  212. 1922 [153]"open (NULL)state   open(NULL)>";f$
  213. 1924 [153]"open (NULL)        (NULL)"
  214. 1926 [153]"open (NULL)zip codeopen(NULL)>";g$
  215. 1928 [153]"open (NULL)        (NULL)"
  216. 1930 [153]"open (NULL)phone # open(NULL)>";h$
  217. 1932 [153]"open (NULL)        (NULL)
  218. 1934 print"[158] [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  219. 1936 print"[158] [221]hit [x] to abort to menu[158][221]"
  220. 1938 print"[158] [221]                        [221]"
  221. 1940 print" [221]hit [e] to edit file[158]    [221]"
  222. 1942 print" [221]                        [221]"
  223. 1944 print" [221]hit return to continue  [158][221]"
  224. 1946 print" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  225. 1948 getk$:ifk$=""thengoto 1948
  226. 1950 ifk$="x"thenrestore
  227. 1952 ifk$="x"thengoto 1510
  228. 1954 ifk$="e"thened=1:goto 1958
  229. 1956 return
  230. 1958 gosub 2002
  231. 1960 ifed=2thenprint"list";a;"-";a+1:goto 1964
  232. 1962 print"list"a
  233. 1964 print"[145][145][145]";:poke198,4:fori=631to636:pokei,13:next:end
  234. 1966 reada
  235. 1968 ifa=1500thenrestore
  236. 1970 ifa=1500thenreturn
  237. 1972 x=a
  238. 1974 readb$,c$,d$,e$,f$,g$,h$
  239. 1976 return
  240. 1978 input"[147]last name";i1$
  241. 1980 input"[147]first name";i2$
  242. 1982 input"[147]address";i3$
  243. 1984 input"[147]city";i4$
  244. 1986 input"[147]state";i5$
  245. 1988 input"[147]zip code";i6$
  246. 1990 input"[147]phone number";i7$
  247. 1992 print"[147]";spc(10);"filing. please wait."
  248. 1994 gosub 1966
  249. 1996 ifx>=1500thengoto 2022
  250. 1998 ifa=1500thengoto 2002
  251. 2000 goto 1994
  252. 2002 ld=len(b$)+len(c$)+len(d$)+len(e$)+len(f$)+len(g$)+len(h$)+len(str$(a))
  253. 2004 ifld>=67thenx=x+1:ifed=1thened=2:return
  254. 2006 ifed=1thenreturn
  255. 2008 dl=len(i1$)+len(i2$)+len(i3$)+len(i4$)+len(i5$)+len(i6$)+len(i7$)
  256. 2010 li=x+1:dl=dl+len(str$(li))
  257. 2012 r=4:ifdl>=67then 2026
  258. 2014 print"[147]"right$(str$(li),len(str$(li))-1)"data";li;"[157],";i1$;",";i2$;
  259. 2016 print",";i3$;",";i4$;",";i5$;",";i6$;",";i7$
  260. 2018 print"run1506"
  261. 2020 print"";:poke198,r:fori=631to635:pokei,13:next:end
  262. 2022 print"[147]"spc(13);"[153]memory full!!![146]":forl=1to2000:next
  263. 2024 restore:return
  264. 2026 print"[147]"right$(str$(li),len(str$(li))-1)"data";li;"[157],";i1$;",";i2$;
  265. 2028 print",";i3$
  266. 2030 li=li+1
  267. 2032 printright$(str$(li),len(str$(li))-1)"data";i4$;",";i5$;",";i6$;",";i7$
  268. 2034 r=5:goto 2018
  269.